Option Explicit
Sub A_Sample029()
    Dim myRng1  As Range
    Dim myRng2  As Range
    Dim myRng3  As Range
    Dim myRng4  As Range
    Set myRng1 = Range("A1:C5")	'Nxsd
    Set myRng2 = Rows("3:6")
    Set myRng3 = Columns("E:G")
    'ǳƨ즹
    Set myRng4 = Union(myRng1, myRng2, myRng3)
    MsgBox myRng4.Address
    Set myRng1 = Nothing		'
    Set myRng2 = Nothing
    Set myRng3 = Nothing
    Set myRng4 = Nothing
End Sub
